home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nvlexp / password.frm < prev    next >
Text File  |  1995-12-05  |  5KB  |  158 lines
  1. VERSION 2.00
  2. Begin Form Password 
  3.    Caption         =   "Enter UserID and Password"
  4.    ClientHeight    =   3030
  5.    ClientLeft      =   600
  6.    ClientTop       =   660
  7.    ClientWidth     =   5385
  8.    Height          =   3435
  9.    Left            =   540
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3030
  13.    ScaleWidth      =   5385
  14.    Top             =   315
  15.    Width           =   5505
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Cancel"
  18.       Height          =   495
  19.       Left            =   3300
  20.       TabIndex        =   4
  21.       Top             =   2490
  22.       Width           =   855
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "OK"
  26.       Height          =   495
  27.       Left            =   1380
  28.       TabIndex        =   3
  29.       Top             =   2490
  30.       Width           =   855
  31.    End
  32.    Begin TextBox Text3 
  33.       BorderStyle     =   0  'None
  34.       FontBold        =   -1  'True
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   13.5
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   360
  41.       Left            =   2250
  42.       TabIndex        =   2
  43.       Top             =   1830
  44.       Width           =   2025
  45.    End
  46.    Begin TextBox Text2 
  47.       BorderStyle     =   0  'None
  48.       FontBold        =   -1  'True
  49.       FontItalic      =   0   'False
  50.       FontName        =   "MS Sans Serif"
  51.       FontSize        =   13.5
  52.       FontStrikethru  =   0   'False
  53.       FontUnderline   =   0   'False
  54.       Height          =   360
  55.       Left            =   2250
  56.       TabIndex        =   1
  57.       Top             =   1170
  58.       Width           =   2025
  59.    End
  60.    Begin TextBox Text1 
  61.       BorderStyle     =   0  'None
  62.       FontBold        =   -1  'True
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   9.75
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   315
  69.       Left            =   2250
  70.       TabIndex        =   0
  71.       Top             =   570
  72.       Width           =   1725
  73.    End
  74. End
  75. DefInt A-Z
  76.  
  77. Dim TxthWnd As Integer, WindowLong As Long
  78.  
  79. Sub Command1_Click ()
  80.     TmpTxt$ = Text1.Text: Text1.Text = AllTrim(TmpTxt$)
  81.     TmpTxt$ = Text2.Text: Text2.Text = AllTrim(TmpTxt$)
  82.     TmpTxt$ = Text3.Text: Text3.Text = AllTrim(TmpTxt$)
  83.  
  84.     If Text1.Text = "" Then
  85.         Txt$ = "You cannot have a blank user ID"
  86.         MsgBox Txt$, 32, "UserID"
  87.         Exit Sub
  88.     End If
  89.  
  90.     If Text2.Text = "" Then
  91.         Txt$ = "You have a blank password.  Is "
  92.         Txt$ = Txt$ + "this correct?"
  93.         Response% = MsgBox(Txt$, 36, "Password Warning")
  94.         If Response% = 7 Then   ' Hit NO
  95.             Exit Sub
  96.         End If
  97.     End If
  98.  
  99.     If Text2.Text = Text3.Text Then
  100.         MainForm.Hidden1.Text = UCase$(Text1.Text)
  101.         MainForm.Hidden2.Text = UCase$(Text2.Text)
  102.         Unload Password
  103.     Else
  104.         Txt$ = "Passwords do not match"
  105.         MsgBox Txt$, 32, "Passwords"
  106.     End If
  107. End Sub
  108.  
  109. Sub Command2_Click ()
  110.         MainForm.Hidden1.Text = "***VOID***"
  111.         MainForm.Hidden2.Text = "***VOID***"
  112.         Unload Password
  113. End Sub
  114.  
  115. Sub Form_Load ()
  116.     Form_Paint
  117. End Sub
  118.  
  119. Sub Form_Paint ()
  120.     TmpTxt$ = "UserID:  "
  121.     Password.CurrentX = Password.Text1.Left - TextWidth(TmpTxt$)
  122.     Password.CurrentY = Password.Text1.Top + 20
  123.     Password.Print TmpTxt$
  124.  
  125.     TmpTxt$ = "Enter Password:  "
  126.     Password.CurrentX = Password.Text2.Left - TextWidth(TmpTxt$)
  127.     Password.CurrentY = Password.Text2.Top
  128.     Password.Print TmpTxt$
  129.  
  130.     TmpTxt$ = "Re-Enter Password:  "
  131.     Password.CurrentX = Password.Text3.Left - TextWidth(TmpTxt$)
  132.     Password.CurrentY = Password.Text3.Top
  133.     Password.Print TmpTxt$
  134. End Sub
  135.  
  136. Sub Text2_GotFocus ()
  137.     numChars = 14
  138.     dummy& = SendMessage(GetFocus(), EM_LIMITTEXT, numChars, ByVal 0&)
  139.  
  140.     TxthWnd = GetFocus()
  141.     WindowLong = GetWindowLong(TxthWnd, GWL_STYLE)
  142.     WindowLong = WindowLong Or ES_PASSWORD
  143.     WindowLong = SetWindowLong(TxthWnd, GWL_STYLE, WindowLong)
  144.     WindowLong = SendMessage(TxthWnd, EM_SETPASSWORD, ASTERICK, ByVal 0&)
  145. End Sub
  146.  
  147. Sub Text3_GotFocus ()
  148.     numChars = 14
  149.     dummy& = SendMessage(GetFocus(), EM_LIMITTEXT, numChars, ByVal 0&)
  150.     
  151.     TxthWnd = GetFocus()
  152.     WindowLong = GetWindowLong(TxthWnd, GWL_STYLE)
  153.     WindowLong = WindowLong Or ES_PASSWORD
  154.     WindowLong = SetWindowLong(TxthWnd, GWL_STYLE, WindowLong)
  155.     WindowLong = SendMessage(TxthWnd, EM_SETPASSWORD, ASTERICK, ByVal 0&)
  156. End Sub
  157.  
  158.